(message "\n\nStop now if you haven't read the Read.1st! file for important instructions.\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
(run "avail flush" (safe))
;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
(run "CD PageStream3:" (safe))
(run "CD SoftLogik:" (safe))
(run "assign fonts: softlogik:fonts add" (safe))
;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
(message ("\n\nThis patch will update your PageStream 3.0i hard drive installation to the final version of 3.1.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have installed 3.0i from an online patch before using this patch."))
(if (<> (exists "PageStream3:PageStream3") 1)
(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.0i before applying this update patch.")
)
;get destination
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.0i before applying this update patch.")
)
(set PGSsize (getsize "PageStream3:PageStream3"))
(if (= PGSsize 1530924)
(abort "You downloaded pgs31_i2.lha instead of pgs31_i1.lha. Please read the Read.1st! file for instructions.")
)
(if (= PGSsize 1522840)
(abort "You downloaded pgs31_i2.lha instead of pgs31_i3.lha. Please read the Read.1st! file for instructions.")
)
(if (<> PGSsize 1530808)
(abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.")
)
(set @default-dest PGSdest)
;UPDATE FONT PATHS
(message "\nThe first time you start PageStream 3.1, it will update each of your font paths. This means that starting the program will take a lot longer the first time.")
(message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
(message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
(message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
(message "\n\nYour TextFX2 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
(message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
(message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
(message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
(message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
(message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
)
)
)
(delete "ram:Convolve.effect" (safe))
(delete "ram:Histogram.effect" (safe))
(delete "ram:HSB.effect" (safe))
(delete "ram:Average.effect" (safe))
(delete "ram:Gamma.effect" (safe))
(delete "ram:Maximum.effect" (safe))
(delete "ram:Minimum.effect" (safe))
(delete "ram:Median.effect" (safe))
(delete "ram:Solarize.effect" (safe))
(delete "ram:Threshold.effect" (safe))
)
)
(delete "ram:Convolve.pch" (safe))
(delete "ram:Histogram.pch" (safe))
(delete "ram:HSB.pch" (safe))
(delete "ram:Average.pch" (safe))
(delete "ram:Gamma.pch" (safe))
(delete "ram:Maximum.pch" (safe))
(delete "ram:Minimum.pch" (safe))
(delete "ram:Median.pch" (safe))
(delete "ram:Solarize.pch" (safe))
(delete "ram:Threshold.pch" (safe))
(delete "Patch.LHA" (safe))
;UPDATE BME
(if (exists "PageStream3:BME")
(
(working "Patching BME to new version...")
(run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")